home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / dev / src / beamcon0.lha / Beamcon0.S
Text File  |  1995-07-11  |  2KB  |  70 lines
  1. ; © 1995 by Fabrizio Farenga
  2. ;
  3. ; f.farenga@agora.stm.it
  4. ; http://www.agora.stm.it/htbin/wwx?fi^F.Farenga
  5. ;
  6. ; ##############################################################
  7. ;
  8. ; Read the O.S. copy of BeamCon0 register.
  9. ;
  10. ; ##############################################################
  11. ;
  12. ; These examples are provided "as-is" and are subject to change;
  13. ; no warranties are made.  All use is at your own risk.
  14. ; No liability or responsibility is assumed.
  15. ;
  16. ;
  17. ;
  18. ; ** USE THE O.S. LUKE! **
  19. ;
  20.  
  21.  
  22. _LVOOpenLibrary=-552
  23. _LVOCloseLibrary=-414
  24. _LVOGfxLookUp=-702
  25. gb_actiview=34
  26. ve_Monitor=28
  27. ms_beamcon0=40
  28.  
  29. BEAMCON0 EQU $DFF1DC
  30.  
  31. ResetBeamCon0
  32.  
  33.   lea     _GfxName,A1  ;Open graphics.library
  34.   move.l  #36,D0       ;V36 or higher.
  35.   move.l  4,A6
  36.   jsr   _LVOOpenLibrary(A6) 
  37.   move.l  D0,_GfxBase  ;If graphics.library is older
  38.   beq     NoViewExtra  ;than v36, the O.S. can't manage
  39.                        ;BEAMCON0
  40.  
  41.   move.l  _GfxBase,A6
  42.   move.l  gb_ActiView(A6),A0 ;Check for ViewExtra
  43.   move.l  _GfxBase,A6        ;structure
  44.   jsr     _LVOGfxLookUp(A6)
  45.   tst.l   D0
  46.   beq     NoViewExtra
  47.  
  48.   move.l  D0,A0               ;Get the Monitor
  49.   move.l  ve_Monitor(A0),A0   ;structure from ViewExtra
  50.  
  51.   move.w  ms_beamcon0(A0),D0  ;Read the sync of the
  52.                               ;active monitor.
  53.  
  54.   move.w  D0,BEAMCON0         ;Write the sync into the
  55.                               ;BEAMCON0 register
  56.  
  57. NoViewExtra:
  58.  
  59. Exit:
  60.   move.l  _GfxBase,A1         ;Close graphics.library
  61.   move.l  4,A6
  62.   jsr     _LVOCloseLibrary(A6)
  63.  
  64.   moveq   #0,D0
  65.  
  66.   rts
  67.  
  68. _GfxBase:  dc.l 0
  69. _GfxName:  dc.b "graphics.library",0
  70.